MacFormat 1997 January/macformat46.iso/Shareware Plus/Applications/Charting Coach/Charting Coach V2.0sw/Charting Coach V2.DXR/00510.ls

Text File | 1996-10-13 | 21.4 KB | 685 lines

on checkChanges
  global advice, basis, stamp, dayNo, bioInfo, PeakDayNo, currentCycleNo, userNo, cycleNo, wantsToViewCycles, previousPeak
  set advice to []
  set basis to []
  if checkLogic2() then
    repeat with i = 1 to count(stamp)
      set dayNo to i
      if max(bioInfo) = 14 then
        getConceiveAdvice()
        next repeat
      end if
      getAbstainAdvice()
    end repeat
  else
    beep(2)
    go("monthly")
    makeCorrection()
    cursor(0)
    exit
  end if
  killcorrection()
  writecycleinfo()
  puppetVisible(13, 48, 1)
  puppetStatus(11, 48, 0)
  if wantsToViewCycles = 0 then
    if currentCycleNo <> getAt(cycleNo, userNo) then
      set currentCycleNo to getAt(cycleNo, userNo)
      readCycleInfo()
    end if
    go("removeimage")
    prepfrontpage()
  else
    go("removeimage")
    go("cycle list")
    cursor(0)
  end if
end

on upToNow10 dayNum
  repeat with i = 1 to dayNum
    if getAt(stamp, i) = 10 then
      return 1
    end if
  end repeat
  return 0
end

on resetpeak
  global PeakDayNo, stamp, previousPeak
  if getOne(stamp, 10) > 0 then
    setAt(stamp, getOne(stamp, 10), 3)
  end if
  set previousPeak to PeakDayNo
  set PeakDayNo to 0
end

on probablyPeak
  global dayNo
  set x to dayNo + 1
  if getOne(bioInfo, 13) > 0 then
    put "You indicated in the Biographical Data that you have anovulatory cycles. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 1) > 0 then
    put "You indicated in the Biographical Data that you are Breastfeeding. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 2) > 0 then
    put "You indicated in the Biographical Data that you are Under Stress or Rigorous Exercise. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 3) > 0 then
    put "You indicated in the Biographical Data that you are On Medication. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 4) > 0 then
    put "You indicated in the Biographical Data that you are In Estrogen Therapy. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 5) > 0 then
    put "You indicated in the Biographical Data that you are PeriMenopausal. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 6) > 0 then
    put "You indicated in the Biographical Data that you are Vegetarian. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 7) > 0 then
    put "You indicated in the Biographical Data that you are Over or Under Weight. " into field "noPeakreason"
    return 0
  end if
  if getOne(bioInfo, 8) > 0 then
    put "You indicated in the Biographical Data that you are Taking or Recently off of Hormonal Contraceptives. " into field "noPeakreason"
    return 0
  end if
  if x < 6 then
    put "You have not charted a sufficient number of days in the Charting Coach. " into field "noPeakreason"
    return 0
  else
    if onlysensation(x) then
      put "In this progression of mucus, you have not witnessed any wet or stretchy mucus." into field "noPeakreason"
    end if
    put "The mucus pattern you have charted is unusual. " into field "noPeakreason"
    if (getAt(mucus, x) > 1) and (getAt(mucus, x) < 7) then
      return 0
    end if
    if not ((getAt(mucus, x - 1) > 1) and (getAt(mucus, x - 1) < 7)) then
      return 0
    end if
    if not ((getAt(mucus, x - 2) > 1) and (getAt(mucus, x - 2) < 7)) then
      return 0
    end if
    if not ((getAt(mucus, x - 3) > 1) and (getAt(mucus, x - 3) < 7)) then
      return 0
    end if
    set score to 0
    repeat with i = x - 4 to x - 1
      if (getAt(mucus, i) > 1) and (getAt(mucus, i) < 7) then
        set score to score + getAt(mucus, i)
      end if
    end repeat
    if score < 12 then
      return 0
    end if
  end if
  return 1
end

on onlysensation x
  if getAt(mucus, x) = 2 then
    repeat with i = x down to 1
      if getAt(mucus, x) = 0 then
        return 1
      end if
      if (getAt(mucus, x) > 2) and (getAt(mucus, x) < 7) then
        return 0
      end if
    end repeat
  else
    return 0
  end if
  return 1
end

on resetAdvice
  global advice, basis, dayNo, stamp, PeakDayNo, previousPeak, forewarned
  set advice to []
  set basis to []
  set forewarned to 0
  repeat with i = 1 to count(stamp)
    set dayNo to i
    if max(bioInfo) = 14 then
      getConceiveAdvice()
      next repeat
    end if
    getAbstainAdvice()
  end repeat
end

on getOnlyRedPrevious
  global stamp, dayNo
  if dayNo < 1 then
    return 1
  end if
  if getAt(stamp, 1) > 1 then
    return 0
  end if
  repeat with i = 1 to dayNo - 1
    if getAt(stamp, i) > 2 then
      return 0
    end if
  end repeat
  set countbrown to 0
  repeat with i = 1 to dayNo - 1
    if getAt(stamp, i) = 2 then
      set countbrown to countbrown + 1
      if countbrown > 1 then
        return 0
      end if
      next repeat
    end if
    set countbrown to 0
  end repeat
  return 1
end

on getOnlyRedPrevious2 dayNum
  if dayNum < 1 then
    return 1
  end if
  repeat with i = 1 to dayNum
    if getAt(stamp, i) > 2 then
      return 0
    end if
  end repeat
  set countbrown to 0
  repeat with i = 1 to dayNum
    if getAt(stamp, i) = 2 then
      set countbrown to countbrown + 1
      if countbrown > 2 then
        return 0
      end if
      next repeat
    end if
    set countbrown to 0
  end repeat
  return 1
end

on getAnovulatory
  global stamp, previousPeak
  if (getOne(stamp, 10) > 0) or (previousPeak > 0) then
    killAnovul()
    return 0
  else
    set x to getOne(stamp, 3)
    if x > 0 then
      set countFromWhite to x
    else
      set countFromWhite to 1
    end if
    repeat with i = countFromWhite to count(stamp)
      if getAt(stamp, i) = 6 then
        setAnovul()
        return 1
      end if
    end repeat
  end if
  if getOne(bioInfo, 13) > 0 then
    return 1
  else
    return 0
  end if
end

on killAnovul
  global bioInfo
  if getOne(bioInfo, 13) > 0 then
    deleteAt(bioInfo, getOne(bioInfo, 13))
  end if
end

on setAnovul
  global bioInfo
  if getOne(bioInfo, 13) = 0 then
    append(bioInfo, 13)
  end if
  if getOne(bioInfo, 9) > 0 then
    deleteAt(bioInfo, getOne(bioInfo, 9))
  end if
  if getOne(bioInfo, 10) > 0 then
    deleteAt(bioInfo, getOne(bioInfo, 10))
  end if
  if getOne(bioInfo, 11) > 0 then
    deleteAt(bioInfo, getOne(bioInfo, 11))
  end if
end

on start3YellowBabies
  global PeakDayNo, previousPeak
  set dayNum to count(stamp)
  if (getAt(stamp, 1) = 4) and (PeakDayNo = 0) and (previousPeak = 0) then
    return 1
  end if
  return 0
end

on inspectbasis basisNo, adviceno
  set goodbasisList to [0, 101, 102, 103, 105, 106, 107, 108, 109, 111, 112, 113, 115, 117, 118, 119, 130, 131, 150, 201, 202, 203, 205, 206, 207, 208, 209, 210, 211, 215, 217, 218, 219, 125, 225, 126, 226]
  set goodadvicelist to [0, 101, 102, 103, 104, 105, 107, 108, 109, 110, 150, 202, 250, 1000, 1101, 1102, 1103, 1104, 1105, 1107, 1108, 1109, 1110, 1150, 1202, 1250]
  if getOne(goodbasisList, basisNo) and getOne(goodadvicelist, adviceno) then
    return 1
  else
    return 0
  end if
end

on violatedRule
  global relations, advice, dayNo
  set dayNum to dayNo
  if dayNum < 2 then
    return 0
  end if
  if (getAt(relations, dayNum - 1) <> 4) and (getAt(relations, dayNum - 1) <> 0) then
    set lookadvice to getAt(advice, dayNum - 1)
    if lookadvice > 1000 then
      set lookadvice to lookadvice - 1000
    end if
    if (lookadvice = 101) or (lookadvice = 104) or ((lookadvice > 106) and (lookadvice < 110)) then
      return 1
    else
      if (lookadvice = 102) and (getAt(relations, dayNum - 1) <> 2) then
        return 1
      else
        return 0
      end if
    end if
  else
    return 0
  end if
end

on alertviolatedRule
  global relations, advice, dayNo
  set dayNum to dayNo
  if dayNum < 1 then
    return 0
  end if
  if getAt(relations, dayNum) <> 4 then
    set lookadvice to getAt(advice, dayNum)
    if lookadvice > 1000 then
      set lookadvice to lookadvice - 1000
    end if
    if (lookadvice = 101) or (lookadvice = 104) or ((lookadvice > 106) and (lookadvice < 110)) then
      return 1
    else
      if (lookadvice = 102) and (getAt(relations, dayNum) <> 2) then
        return 1
      else
        return 0
      end if
    end if
  else
    return 0
  end if
end

on anyFertileDay
  global mucus
  set last to count(mucus)
  repeat with i = 1 to last
    if (getAt(mucus, i) < 7) and (getAt(mucus, i) > 1) then
      return 1
    end if
  end repeat
end

on checkLogicRed
  global stamp, mucus, PeakDayNo
  set dayNum to count(stamp)
  if (getOnlyRedPrevious() = 0) and ((dayNum - PeakDayNo) > 9) then
    cursor(0)
    go("StartNewCycle")
    cursor(0)
  else
    append(relations, 0)
    append(stamp, 1)
    append(mucus, 0)
    resetpeak()
    showDays()
    setupDayBook()
    cursor(0)
  end if
end

on checkLogicBrown
  global stamp, mucus, PeakDayNo, previousPeak
  set dayNum to count(stamp)
  if dayNum > 0 then
    if ((PeakDayNo > 0) and ((dayNum - PeakDayNo) < 3)) or ((previousPeak > 0) and ((dayNum - previousPeak) < 3)) or (getAt(stamp, dayNum) = 3) then
      cursor(0)
      set the visible of sprite 16 to 0
      alert("If dry within three days after the presence of mucus or spotting, choose the Brown Baby Stamp.")
      set the visible of sprite 16 to 1
    else
      append(relations, 0)
      append(mucus, 0)
      append(stamp, 2)
      setupDayBook()
      showDays()
      cursor(0)
    end if
  else
    append(relations, 0)
    append(mucus, 0)
    append(stamp, 2)
    setupDayBook()
    showDays()
    cursor(0)
  end if
end

on checkLogicWhite
  global PeakDayNo, stamp, forewarned, candidateStamp
  if forewarned = 1 then
    cursor(0)
    alert("The Previous Peak will be removed.")
    cursor(4)
    set forewarned to 0
    resetpeak()
    set candidateStamp to 3
    go("chart mucus")
    cursor(0)
  else
    if getOne(stamp, 10) > 0 then
      cursor(0)
      if max(mucus) > 0 then
        set forewarned to 1
        set the visible of sprite 16 to 0
        alert("     You have chosen the White Baby stamp but Peak Day was identified previously." & RETURN & "     If you have a milky white mucus, choose the Yellow Stamp. If you have a moist or lubricated sensation or a clear, stretchy mucus, choose the White Baby stamp again.")
        set the visible of sprite 16 to 1
      else
        set candidateStamp to 3
        go("chart mucus")
        cursor(0)
        set PeakDayNo to 0
      end if
    else
      if PeakDayNo > 0 then
        set PeakDayNo to 0
      end if
      set candidateStamp to 3
      go("chart mucus")
      cursor(0)
    end if
  end if
end

on checklogicYellowBaby
  global PeakDayNo, stamp, candidateStamp, mucus
  set dayNum to count(stamp)
  if dayNum > 0 then
    if ((PeakDayNo > 0) and ((count(stamp) - PeakDayNo) > 2)) or ((PeakDayNo > 0) and ((count(stamp) - PeakDayNo) < 4) and ((PeakDayNo - getOne(stamp, 10)) > 3) and (getAt(stamp, count(stamp)) <> 3) and (getOne(stamp, 10) > 0)) or ThreeBabies() then
      cursor(0)
      set the visible of sprite 16 to 0
      alert("The Yellow Baby stamp should only be chosen for the three days after Peak Day. ")
      set the visible of sprite 16 to 1
    else
      if (getAt(mucus, dayNum) < 7) and (getAt(mucus, dayNum) > 1) then
        set candidateStamp to 4
        go("askSensation")
        cursor(0)
      else
        if (getAt(stamp, count(stamp)) = 2) or (getAt(stamp, count(stamp)) = 6) or getOnlyRedPrevious() or (not SomethingFertile() and (dayNum > 3)) then
          cursor(0)
          set the visible of sprite 16 to 0
          alert("The Yellow Baby stamp should only be chosen for the three days after Peak Day.  At the onset of mucus, choose the White Baby Stamp.")
          set the visible of sprite 16 to 1
        else
          set candidateStamp to 4
          go("chart mucus")
          cursor(0)
        end if
      end if
    end if
  else
    cursor(0)
    set the visible of sprite 16 to 0
    alert("Sorry.  The Yellow Stamp Cannot Be Charted The First Day.")
    set the visible of sprite 16 to 1
  end if
end

on ThreeBabies
  set x to 0
  set dayNum to count(stamp)
  if dayNum < 3 then
    return 0
  end if
  repeat with i = 0 to 2
    if (getAt(stamp, dayNum - i) = 4) or (getAt(stamp, dayNum - i) = 5) or (getAt(stamp, dayNum - i) = 0) then
      set x to x + 1
      next repeat
    end if
    set x to 0
  end repeat
  if x > 2 then
    return 1
  else
    return 0
  end if
end

on SomethingFertile
  repeat with dayNum = 1 to count(stamp)
    if (getAt(mucus, dayNum) < 7) and (getAt(mucus, dayNum) > 1) then
      return 1
    end if
  end repeat
  return 0
end

on checkLogicBrownBaby
  global PeakDayNo, stamp, candidateStamp, mucus
  set dayNum to count(stamp)
  if dayNum > 0 then
    if ((getOne(stamp, 10) > 0) and ((dayNum - getOne(stamp, 10)) > 3)) or ThreeBabies() then
      cursor(0)
      set the visible of sprite 16 to 0
      alert("The brown baby stamp should only be chosen for the three days after the presence of mucus or spotting.  When dry at other times use the brown stamp.")
      set the visible of sprite 16 to 1
    else
      if (getAt(mucus, dayNum) < 7) and (getAt(mucus, dayNum) > 1) then
        set candidateStamp to 5
        go("askSensation")
        cursor(0)
      else
        if (getAt(stamp, count(stamp)) = 2) or (getAt(stamp, count(stamp)) = 6) then
          cursor(0)
          set the visible of sprite 16 to 0
          alert("The brown baby stamp should only be chosen for the three days after the presence of mucus or spotting.  When dry at other times use the brown stamp.")
          set the visible of sprite 16 to 1
        else
          append(relations, 0)
          append(mucus, 0)
          append(stamp, 5)
          showDays()
          setupDayBook()
        end if
      end if
      cursor(0)
    end if
  else
    append(relations, 0)
    append(mucus, 0)
    append(stamp, 5)
    showDays()
    setupDayBook()
  end if
end

on checkLogicYellow
  global stamp, mucus, PeakDayNo, candidateStamp, warnYellow, previousPeak
  if count(stamp) = 0 then
    if warnYellow = 1 then
      set warnYellow to 0
      set candidateStamp to 6
      go("chart mucus")
      cursor(0)
      exit
    else
      set warnYellow to 1
      cursor(0)
      set the visible of sprite 16 to 0
      alert("You may select the Yellow Stamp only if you've had two weeks of unchanging mucus. " & RETURN & RETURN & "If you've had two weeks of unchanging mucus, select the Yellow Stamp again.")
      set the visible of sprite 16 to 1
      exit
    end if
  end if
  if getOne(stamp, 10) > 0 then
    if (count(stamp) - PeakDayNo) < 3 then
      cursor(0)
      set the visible of sprite 16 to 0
      alert("For the three days after Peak Day or Spotting, choose a Baby Stamp.")
      set the visible of sprite 16 to 1
    else
      set candidateStamp to 6
      go("chart mucus")
      cursor(0)
    end if
  else
    if ((PeakDayNo > 0) and ((count(stamp) - PeakDayNo) < 3)) or ((previousPeak > 0) and ((count(stamp) - previousPeak) < 3)) then
      cursor(0)
      set the visible of sprite 16 to 0
      alert("For the three days after Peak type mucus or spotting, choose a Baby Stamp.")
      set the visible of sprite 16 to 1
    else
      if getAnovulatory() or warnYellow then
        set warnYellow to 0
        set candidateStamp to 6
        go("chart mucus")
        cursor(0)
      else
        set warnYellow to 1
        cursor(0)
        set the visible of sprite 16 to 0
        alert("You may select the Yellow Stamp only if you've had two weeks of unchanging mucus. " & RETURN & RETURN & "If you've had two weeks of unchanging mucus, select the Yellow Stamp again.")
        set the visible of sprite 16 to 1
      end if
    end if
  end if
end

on checkLogic2
  global PeakDayNo
  if getOne(stamp, 1) > 0 then
    set first to getOne(stamp, 1)
    repeat with i = first to count(stamp) - 1
      if (getAt(stamp, i) = 1) and (i > 2) then
        if (getAt(stamp, i - 1) <> 1) and (getAt(stamp, i - 2) <> 1) then
          if getAt(stamp, i + 1) = 2 then
            put "ERROR: " & "On Day # " & i + 1 & ", the Brown Stamp was used.  If dry within three days after spotting or bleeding, use the Brown Baby Stamp." into field "problem"
            return 0
            next repeat
          end if
          if getAt(stamp, i + 1) = 6 then
            put "ERROR: " & "On Day # " & i + 1 & ", the Yellow Stamp was used.  If dry within three days after spotting or bleeding, use the Brown Baby Stamp." into field "problem"
            return 0
          end if
        end if
      end if
    end repeat
  end if
  if (getOne(stamp, 3) > 0) or (getOne(stamp, 10) > 0) then
    if getOne(stamp, 10) > 0 then
      repeat with i = count(stamp) down to getOne(stamp, 10) + 1
        if (getAt(mucus, i) < 7) and (getAt(mucus, i) > 1) then
          put "ERROR: " & "On Day #" & i & ", there was stretchy, elastic mucus or a wet, slippery sensation.  If the mucus stamp is correct, Day #" & getOne(stamp, 10) & " could not be Peak Day.  If you would like to change it, click on it with the eraser." into field "problem"
          return 0
        end if
        if getAt(stamp, i) = 1 then
          put "ERROR: " & "On Day # " & i & ", there was spotting or bleeding.  If the red stamp is correct, Day #" & getOne(stamp, 10) & " could not be Peak Day.  You must use the eraser to change Day #" & i & " or Day #" & getOne(stamp, 10) into field "problem"
          return 0
        end if
      end repeat
    end if
    repeat with i = 1 to count(stamp) - 1
      if (getAt(mucus, i) < 7) and (getAt(mucus, i) > 1) and ((getAt(mucus, i + 1) > 7) or (getAt(mucus, i + 1) = 1)) and (getAt(stamp, i + 1) <> 4) then
        put "ERROR: " & "On Day # " & i + 1 & ", there was a dramatic change in mucus.  The Yellow Baby Stamp should have been used unless there was a wet or lubricated sensation.  If there was a wet or lubricated sensation,  use the White Baby Stamp and the Sensation (raindrop) stamp." into field "problem"
        return 0
      end if
      if (getAt(stamp, i) = 3) or (getAt(stamp, i) = 10) then
        if getAt(stamp, i + 1) = 2 then
          put "ERROR: " & "On Day # " & i + 1 & ", the Brown Stamp was used.  If dry within three days after the presence of mucus or spotting, use the Brown Baby Stamp." into field "problem"
          return 0
          next repeat
        end if
        if (getAt(stamp, i + 1) = 6) and (getAt(mucus, i) < 7) and (getAt(mucus, i) > 1) then
          put "ERROR: " & "On Day # " & i + 1 & ", the Yellow Stamp was used.  Three days after the appearance of Peak Type mucus, use the Yellow Baby Stamp." into field "problem"
          return 0
          next repeat
        end if
        if (i + 2) < count(stamp) then
          if getAt(stamp, i + 2) = 2 then
            put "ERROR: " & "On Day # " & i + 2 & ", the Brown Stamp was used.  If dry within three days after the presence of mucus or spotting, use the Brown Baby Stamp." into field "problem"
            return 0
            next repeat
          end if
          if (getAt(stamp, i + 2) = 6) and (getAt(mucus, i) < 7) and (getAt(mucus, i) > 1) then
            put "ERROR: " & "On Day # " & i + 1 & ", the Yellow Stamp was used.  Three days after the appearance of Peak Type mucus, use the Yellow Baby Stamp." into field "problem"
            return 0
            next repeat
          end if
          if (i + 3) < count(stamp) then
            if getAt(stamp, i + 3) = 2 then
              put "ERROR: " & "On Day # " & i + 3 & ", the Brown Stamp was used.  If dry within three days after the presence of mucus or spotting, use the Brown Baby Stamp." into field "problem"
              return 0
              next repeat
            end if
            if (getAt(stamp, i + 3) = 6) and (getAt(mucus, i) < 7) and (getAt(mucus, i) > 1) then
              put "ERROR: " & "On Day # " & i + 1 & ", the Yellow Stamp was used.  Three days after the appearance of Peak Type mucus, use the Yellow Baby Stamp." into field "problem"
              return 0
            end if
          end if
        end if
      end if
    end repeat
  end if
  if (getOne(stamp, 4) > 0) or (getOne(stamp, 5) > 0) then
    set x to 0
    repeat with i = 1 to count(stamp)
      if (getAt(stamp, i) = 4) or (getAt(stamp, i) = 5) then
        if i > 1 then
          if (getAt(stamp, i - 1) = 2) or (getAt(stamp, i - 1) = 6) then
            if getAt(stamp, i) = 5 then
              put "ERROR: " & "On Day # " & i & ", the Brown Baby Stamp was used.  Only use the Brown Baby Stamp the three days after the presence of mucus or spotting, at all other dry times use the Brown Stamp." into field "problem"
              return 0
            else
              put "ERROR: " & "On Day # " & i & ", the Yellow Baby Stamp was used.  Only use the Yellow Baby Stamp the three days after Peak day or spotting." into field "problem"
              return 0
            end if
          end if
        end if
        set x to x + 1
        if x >= 4 then
          if getAt(stamp, i) = 5 then
            put "ERROR: " & "On Day # " & i & ", the Brown Baby Stamp was used.  If dry after Peak+3 days or more than three days after mucus or spotting, use the Brown Stamp." into field "problem"
            return 0
          else
            put "ERROR: " & "On Day # " & i & ", the Yellow Baby Stamp was used.  If mucus is present after Peak+3 days or more than three days after spotting, use the Yellow Stamp or White Stamp." into field "problem"
          end if
          return 0
        end if
        next repeat
      end if
      set x to 0
    end repeat
    if not anyFertileDay() and (getOne(stamp, 4) > 0) then
      put "ERROR: The Yellow Baby Stamp was used but there was no previous Peak type day." into field "problem"
      return 0
    end if
  end if
  return 1
end